home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / tex / style / misc / palaconc.sty < prev    next >
Text File  |  1995-11-25  |  3KB  |  106 lines
  1.  
  2. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  3. \new@mathversion\mv@euler
  4. \define@mathgroup\mv@euler{0}
  5.                  {cmr}{m}{n}
  6. \define@mathgroup\mv@euler{1}
  7.                  {eur}{m}{n}
  8. \define@mathgroup\mv@euler{2}
  9.                  {cmsy}{m}{n}
  10. \new@mathgroup\euex@group
  11. \define@mathgroup\mv@euler\euex@group
  12.                  {euex}{m}{n}
  13. %%%%%%%%%%%%%%%%%    Das hier ist neu. MH       
  14. \new@mathversion\mv@eubold
  15. \define@mathgroup\mv@eubold{0}
  16.                  {cmr}{m}{n}
  17. \define@mathgroup\mv@eubold{1}
  18.                  {eur}{b}{n}
  19. \define@mathgroup\mv@eubold{2}
  20.                  {cmsy}{b}{n}
  21. %  Für Wuppertal: %%%%%%%%%%%%%%%%%%%%                 
  22. %\def\pfrak{\RIfM@\expandafter\frak@\else
  23. %                 \expandafter\nonmatherr@\expandafter\frak\fi}
  24. %\newmathalphabet\frak@
  25. \addtoversion{euler}\frak@{euf}{m}{n}
  26. \addtoversion{eubold}\frak@{euf}{b}{n}
  27.  
  28. %%%%%%%%%%%%%%%%%%%%%%%%%%%%
  29. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  30. \mathcode`\0="7130
  31. \mathcode`\1="7131
  32. \mathcode`\2="7132
  33. \mathcode`\3="7133
  34. \mathcode`\4="7134
  35. \mathcode`\5="7135
  36. \mathcode`\6="7136
  37. \mathcode`\7="7137
  38. \mathcode`\8="7138
  39. \mathcode`\9="7139
  40. \edef\@tempa{\hexnumber@\euex@group}
  41. \mathchardef\intop="1\@tempa 52
  42. \mathchardef\ointop="1\@tempa 48
  43. \mathchardef\sum="1\@tempa 50
  44. \mathchardef\prod="1\@tempa 51
  45. \def\@makefnmark{\raise 1ex\hbox{\scriptsize\@thefnmark}}
  46. \mathversion{euler}
  47.  
  48. \def\boldsymbol#1{%
  49.     \math@atom{#1}%
  50.     {\text{%
  51.            \mathversion{eubold}$\m@th#1$}}}
  52.  
  53. \define@mathsizes{25}{17}{12}
  54. %%%%%%%%%%%%%%%%%%%%%
  55. \edef\@tempa{\hexnumber@\euex@group}
  56. \mathchardef\nearrow="3\@tempa 25
  57. \mathchardef\searrow="3\@tempa 26
  58. \mathchardef\nwarrow="3\@tempa 2D
  59. \mathchardef\swarrow="3\@tempa 2E
  60. \mathchardef\Leftrightarrow="3\@tempa 2C
  61. \mathchardef\Leftarrow="3\@tempa 28
  62. \mathchardef\Rightarrow="3\@tempa 29
  63. \mathchardef\leftrightarrow="3\@tempa 24
  64. \mathchardef\leftarrow="3\@tempa 20 \let\gets=\leftarrow
  65. \mathchardef\rightarrow="3\@tempa 21 \let\to=\rightarrow
  66. \mathchardef\leftharpoonup="3\@tempa 18
  67. \mathchardef\leftharpoondown="3\@tempa 19
  68. \mathchardef\rightharpoonup="3\@tempa 1A
  69. \mathchardef\rightharpoondown="3\@tempa 1B
  70. \mathchardef\infty="0\@tempa 31
  71. %%%%%%%%%%%%%%%%%%
  72. \new@mathgroup\eus@group
  73. \define@mathgroup\mv@euler\eus@group
  74.                  {eus}{m}{n}
  75. \edef\@tempb{\hexnumber@\eus@group}
  76. \mathchardef\leq="3\@tempb 14 \let\le=\leq
  77. \mathchardef\geq="3\@tempb 15 \let\ge=\geq
  78. \mathchardef\wedge="2\@tempb 5E \let\land=\wedge
  79. \mathchardef\vee="2\@tempb 5F \let\lor=\vee
  80. \mathchardef\asymp="3\@tempb 10
  81. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  82. \new@mathgroup\euf@group
  83. \define@mathgroup\mv@euler\euf@group
  84.                  {euf}{m}{n}
  85. \edef\@tempb{\hexnumber@\euf@group}
  86. \mathcode`(="4\@tempb 28
  87. \mathcode`)="5\@tempb 29
  88. \mathcode`+="2\@tempb 2B
  89. \mathcode`-="2\@tempb 2D
  90. \mathcode`=="3\@tempb 3D
  91. \mathcode`;="6\@tempb 3B
  92. \mathcode`!="5\@tempb 21
  93. \mathcode`:="3\@tempb 3A
  94. \mathcode`.="0\@tempb 2E
  95. \mathcode`/="0\@tempb 2F
  96. \mathcode`?="5\@tempb 3F
  97. %%%%%%%%%%%%%%%%%%%%
  98.  
  99.  
  100. %\def\rbrace{\delimiter"5\@tempb 67\@tempa 09} \let\}=\rbrace
  101. %\def\lbrace{\delimiter"4\@tempb 66\@tempa 08} \let\{=\lbrace
  102.  
  103. %%%%%%%%%%%%%%%%%  andere \def's  %%%%%%%%%%%%%%%%%%%%
  104. \endinput
  105.  
  106.